home *** CD-ROM | disk | FTP | other *** search
/ The Business Master (3rd Edition) / The Business Master (3rd Edition).iso / files / datature / omahadb / rpr.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-09-20  |  277 b   |  8 lines
  1. 1000  REM THIS SAVES ON MEMORY OVERHEAD DURING SORT
  2. 1005  LOCATE 5,1
  3. 1010  SHEL$="REPAIR.BAT "+DR$(1)+" "+F$(1)+" "+DR$(2)+" "+F$(2)+" "+DR$(3)+" "+F$(3)+" "+DR$(4)+" "+F$(4)+" "+DR$(5)+" "+F$(5)
  4. 1020  DEF SEG:A=PEEK(&H30):B=PEEK(&H31)
  5. 1030  SHELL SHEL$
  6. 1040  DEF SEG:POKE &H30,A:POKE &H31,B
  7. 1050  CHAIN "REPAIR",5000
  8.